home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh18a.d64 / demo nl10 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  708 b   |  35 lines
  1. 100 REM PROGRAMM ZUR DEFINITION EINES
  2. 110 REM NLQ-ZEICHENS AUF DEM STAR NL-10
  3. 120 :
  4. 130 OPEN 4,4
  5. 140 PRINT#4,CHR$(27)CHR$(120)CHR$(49);
  6. 150 PRINT#4,CHR$(27)CHR$(58)CHR$(0)CHR$(0)CHR$(0);
  7. 160 PRINT#4,CHR$(27)CHR$(38)CHR$(0)CHR$(64)CHR$(64);
  8. 170 FORI=0TO46
  9. 180 READM
  10. 190 PRINT#4,CHR$(M);
  11. 200 NEXTI
  12. 210 PRINT#4,CHR$(27)CHR$(37)CHR$(49)CHR$(0);
  13. 220 PRINT#4,"OMEGA : ";
  14. 230 FORI=1TO10
  15. 240 PRINT#4,CHR$(64)" ";
  16. 250 NEXT
  17. 260 PRINT#4
  18. 270 CLOSE4:END
  19. 1000 REM DATEN DES NLQ-ZEICHENS
  20. 1005 :
  21. 1006 REM DATUM FUER UNTERLAENGE
  22. 1010 DATA 128
  23. 1015 :
  24. 1016 REM DATEN FUER 1. DRUCKDURCHGANG
  25. 1020 DATA   0,  1,  0, 56, 64,  4,  4
  26. 1030 DATA 131,128,128,128,128,128,128
  27. 1040 DATA 128,131,  4,  4, 64, 56,  0
  28. 1050 DATA   1,  0
  29. 1055 :
  30. 1056 REM DATEN FUER 2. DRUCKDURCHGANG
  31. 1060 DATA   0,  3,  1,113,  9,129,129
  32. 1070 DATA   7,  0,  0,  0,  0,  0,  0
  33. 1080 DATA   0,  7,129,129,  9,113,  1
  34. 1090 DATA   3,  0
  35.